home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Amiga Classic Collection
/
The Amiga Classic Collection - Disc 1.iso
/
Education
/
ED92-AmateurRadio3.DMS
/
ED92-AmateurRadio3.adf
/
GrtCircle
/
writegcdata
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1990-03-22
|
5KB
|
115 lines
OPEN "df0:gtcirdata" FOR OUTPUT AS 5
WHILE a<9999
READ a
PRINT#5,a
WEND
PRINT#5,9999
CLOSE#5
END
DATA-11,145,-27,154,-38,150,-39,146,-37,142,-32,132,-35,115,-26,113
DATA-21,116,-13,127,-12,137,-15,135,-17,141,-11,145,999,999
REMtasmania
DATA-41,145,-43,146,-43,146,-41,148,-41,145,999,999
REM new guinea
DATA-1,131,-2,138,-4,145,-11,151,-10,148,-8,144,-9,143
DATA-8,139,-5,137,-3,132,-1,131,999,999
REM borneo
DATA 2,109,7,117,5,119,-4,117,-3,111,2,109,999,999
REM ussr/europe
DATA 67,-170,70,170,71,150,72,130,70,125,73,115,77,117,70,87,68,65,67,45
DATA 71,25,62,5,58,5,58,7,59,11,56,13,57,17,63,18,66,24,63,21,60,21,60,30
DATA 58,21,55,21,54,10,58,10,57,8,54,8,53,5,49,0,48,-4,47,-4,46,-1,44,-2
DATA 44,-8,43,-9,37,-9,36,-6,37,-2,39,0,41,1,42,3,44,3,43,6,43,7,44,9
DATA 44,10,42.5,11,40,16
DATA 38,16,38,15,38,13,37,15,39,17,41,17,40,18,42,16,45,13,45,14,42,19
DATA 40,20,37,21,37,23,38,24,40,23,41,27,36,28,37,36,32,34,32,27,33,22
DATA 31,19,33,11,37,10,37,2,35,-2,35,-5,35.5,-6
REM africa
DATA 32,-10,25,-15,21,-17,15,-17,4,-8,5,-2,2,4,4,6,4,9,-2,9,-11,13,-17,12
DATA -35,19,-34,27,-23,35,-20,34,-16,41,-6,39,3,46,12,51,10,44,15,39,27,33
DATA 28,35,17,43,13,44,17,55,22,60,25,51,30,48,30,50,26,53,25,67
REM karachi
DATA 21,71,22,73,16,73,8,77,8,78,13,81,16,80,22,88,23,92,18,94,16,94,16,96
DATA 17,97,12,98,8,98,6,101,3,102,1,104,5,103,10,99,13,101,8,105,12,109
DATA 15,108,18,106,22,108,20,110,24,118,30,122,35,119,37,123,39,117,41,122
DATA 39,126,34,127,35,129,40,128,43,132,43,135,50,140,53,140,55,135,59,143
DATA 60,152,62,165,57,155,51,156,55,162,60,165,63,179,65,-172,67,-170
DATA 999,999
REM sth america nicaragua
DATA 15,-83,11,-84,9,-82,9.5,-79.5,9,-77.5,8,-77,11,-75,12.5,-72,10,-68
DATA 10.5,-63,6,-57,5,-52.5,0,-50,-2,-45,-2.5,-40,-5,-35.5,-8,-35
DATA -12.5,-39,-18,-40,-22,-41,-23,-45,-25,-47,-30,-50,-35,-55,-34.5,-58
DATA -37,-57,-38,-58,-38,-62.5,-41,-62.5,-40.5,-65,-43,-65,-46,-67
DATA -47.5,-66,-50.5,-69,-52.5,-68,-55,-65,-55,-70,-52,-75,-47,-75
DATA -40,-74,-35,-72.5,-30,-72,-25,-70.5,-18,-70,-15,-75,-10,-78
DATA -6,-81,0,-80,4,-77.5,7,-77.5,9,-79,7.5,-81,8,-83,10,-85,13,-87.5
DATA 14,-91,16,-94,15.5,-97,17,-100,19,-105,22,-105.5,25,-108,30,-113
DATA 32,-115,28,-113,25,-111,23,-110,25,-112,27.5,-114,30,-116
DATA 34,-118,34.5,-120.5,40,-124,45,-129
REM vancouver
DATA 48,-124,53,-130,57,-135,60,-140,61,-147,60,-151,58,-155,55,-160
DATA 54,-165,57,-160,58,-157.5,62,-166,64,-161,66,-168,67,-162
DATA 68.5,-167,72,-156,70,-144,69,-136,70,-127,74,-125,73,-110
DATA 70,-100,69,-90,69,-85,74,-85,74,-75,70,-70,68,-65,67,-61,63,-65
DATA 64,-75,64,-87,60,-95,57,-92,55,-85,55,-79,57,-78,59,-79,62,-79
DATA 60,-65,55,-60,53,-56,50,-57,48,-53,47,-53,47.5,-59.5,52,-57
DATA 50,-60,50,-67,47,-70,49,-65,47,-65,47,-60,46,-60,44,-65.5
DATA 44.5,-66,45.5,-65,44,-70,42.5,-70.5,41.5,-70
REM new york
DATA 40.5,-74,37,-76,35,-76,33,-80,30,-82,26,-80,25,-80.5,26,-82
DATA 29,-82.5,30,-84,30.5,-87,30,-90,29,-90,30,-95,28,-97.5,25,-97.5
DATA 22.5,-97.5,20,-97,18,-95,18,-92,21,-90.5,22,-87,16,-89,16,-85
DATA 15,-83,999,999
REM new zealand
DATA -34,174,-37.5,178,-42,175.5,-41.5,175,-40,175,-39,174,-38,175,-34,174
DATA 999,999
REM nz - south
DATA -40.5,172.5,-42,174,-43.5,172.5,-44,171,-46,170.5,-47,169,-46,167
DATA -43,170,-40.5,172.5,999,999
REM uk
DATA 50,-6,51,-3,51,.5,51.5,1,51.5,0,52,1,52.5,2,53,0,55,-2,56.5,-3,57.5,-2
DATA 57.5,-4,58.5,-3,58.5,-5,57,-7,56,-5,54,-3,53,-3,52.5,-4.5,52.5,-4
DATA 52,-5,53,-2.5,51.5,-4,50,-6,999,999
REM eire
DATA 55,-8,55,-5.5,53,-6,52.5,-6.5,52,-9,52.5,-10,53,-9,53,-10,54,-10
DATA 54,-8,55,-8,999,999
REM antarctica
DATA -70,0,-70,5,-70,10,-69,15,-70,20,-70,25,-69,30,-69,35,-70,40,-68,45
DATA -67,50,-66,55,-67,60,-67,65,-67,70,-70,75,-68,80,-67,85,-67,90,-67,95
DATA -65,95,-65,105,-67,105,-67,110,-67,115,-67,120,-67,125,-67,130,-67,135
DATA -67,140,-67.5,145,-68.5,150,-69,155,-70,160,-71,165,-72.5,170,-75,165
DATA -78,160,-77,170,-77,179,-78,-179,-78,-179,-78,-170,-78,-165,-77.5,-160
DATA -77,-155,-76.5,-150,-75,-145,-75,-140,-74.5,-135,-74.5,-130,-73,-125
DATA -73.5,-120,-74,-115,-74.5,-110,-75,-103,-72,-103,-72.5,-95,-72.5,-90
DATA -73,-80,-73,-75,-70,-75,-69,-68,-67,-66,-63,-60,-67,-60,-70,-60
DATA -75,-60,-77.5,-50,-77.5,-40,-76,-30,-75,-25,-72,-15,-70,-5,-70,0
DATA 999,999
REM greenland
DATA 60,-44,65,-40,68,-32,70,-23,75,-23,80,-23,83,-30,82,-55,80,-70,77,-70
DATA 76,-60,70,-55,67,-54,62,-50,61,-48,60,-44,999,999
REM iceland
DATA 67,-15,65,-13,64,-15,63,-19,64,-23,65.5,-24,67,-22,65,-20,67,-15
DATA 999,999
REM madagascar
DATA -12,49,-16,50.5,-20,48.5,-25,47,-26,45,-22.5,43,-20,44,-17,44,-15,47
DATA -12,49,999,999
REM japan
DATA 43,145.5,42,143,41.5,141,40,142,37,141,35,140,34,137,33,134,31.5,130.5
DATA 33,129.5,35.5,133,35.5,135.5,37,137,39,140,42.5,140,45.5,142,43,145.5
DATA 999,999
REM caspian sea
DATA 40.5,50,45,47,47,50,47,53,45.5,53,45,51,40,53,37,54,37,52,38,49
DATA 40.5,50,999,999
REM black sea
DATA 47.5,39.5,45.5,37,42.5,42,41.5,42,41.5,37,42,35,41.5,32,41.5,28,44,28
DATA 47,31,46.5,33,45.5,32.5,44.5,34.5,45.5,36,46,34,47.5,39.5,999,999
REM hawaii
DATA 20,-160,19,-160,19,-159,20,-159,20,-160,999,999
REM fiji
DATA -16,179,-17,179,-17,178,-16,178,-16,179,999,999
REM sri lanka
DATA 10,80,9,80,8,80,7,79,6,80,5,81,6,82,7,83,9,81,10,80,999,999
REM end
DATA 9999,9999